home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n09.zip / SYSWIT.ZIP / SYSGLOB.BAS < prev    next >
BASIC Source File  |  1992-01-09  |  1KB  |  28 lines
  1. DefInt A-Z
  2. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpkeyname As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  3.  
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpkeyname As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  5. Declare Function GetProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpkeyname As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
  6.  
  7. Declare Function ExitWindows Lib "User" (ByVal dwReserved As Long, ByVal wReturnCode As Integer) As Integer
  8. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  9. Global Const IDYES = 6
  10. Global Const IDNO = 7
  11. Global Const TRUE = -1
  12. Global Const FALSE = 0
  13. Global Const OffSet = 4
  14. Global Const BigOffSet = 6
  15. Global Const HiColor = &HE0E0E0
  16. Global Const LoColor = &H808080
  17. Global Const App = "Syswitch"
  18. Global Const Ini = "SYSWITCH.INI"
  19. Global Windir As String
  20. Global WorkingFileName As String
  21. Global ReadString As String * 129
  22. Global NameC(5) As String
  23. Global FileC(5) As String
  24. Global WasRecordChanged
  25. Global FileNum
  26. Global Handoff
  27.  
  28.